﻿

Public Class Ayuda
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim perfil As String
        Dim pagina As String

        perfil = MI_persona.PersLOgueada.dev_perfilUsuario
        pnl_De_PAGINA.Visible = False

        If Not Page.IsPostBack Then
            FG.culturaPaginas()
            Select Case perfil

                Case "Administrativo"
                    pagina = "AyudaPerfilAdministrativo.aspx"
                    imgInstitucion.ImageUrl = "~/Imagenes/PerfilAdministrativo.jpg"
                Case "Medico"
                    pagina = "AyudaPerfilMedico.aspx"
                    imgInstitucion.ImageUrl = "~/Imagenes/PerfilProfesionalMedico.jpg"
                Case "Enfermero Prof."
                    pagina = "AyudaPerfilEnfermero.aspx"
                    imgInstitucion.ImageUrl = "~/Imagenes/PerfilProfesionalMedico.jpg"
                Case "Paciente Web"
                    pagina = "AyudaPerfilPacienteWeb.aspx"
                    imgInstitucion.ImageUrl = "~/Imagenes/UsuarioWeb.png"
                Case "Ministerio Superior"
                    pagina = "AyudaPerfilMinisterioSuperior.aspx"
                    imgInstitucion.ImageUrl = "~/Imagenes/PerfilMinisterio.jpg"
                Case Else
                    pagina = ""
            End Select


            Iframe_Paginas.Attributes.Add("src", pagina)
            pnl_De_PAGINA.Visible = True
            pnl_De_PAGINA.Height = 1000

            Me.lblBienvenida.Font.Bold = True
            Me.lblBienvenida.Text = "Usuarios web"
            Me.lblUsuario.Text = "Bienvenido/a: " + MI_persona.PersLOgueada.Dev_ApellidoYnombre

            Me.lblFechaNac.Text = "Fecha de nacimiento: " + MI_persona.PersLOgueada.Dev_FechaNacimiento



        End If
    End Sub

End Class